home *** CD-ROM | disk | FTP | other *** search
INI File | 1994-08-11 | 69.5 KB | 4,708 lines
[ver] 4 [sty] jdefault.sty [files] [charset] 82 SHIFTJIS (Windows) [revisions] 0 [prn] PostScript Printer [port] LPT1: [lang] 1 [desc] JLABEL.STYé≡Ä⌐ô«ë╗é╡é▄é╖üBâëâxâïé≡ì∞ɼé╖éΘé╜é▀é╠â}âNâìé┼é╖ noautorun 774559890 80 703895045 4739 15 1663 14877 51 53 1 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [ParaNum] 1 [tag] Body Text 2 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 0 0 1 1 0 0 0 1 [nfmt] 280 1 2 . , $ Body Text 0 0 [tag] Body Single 3 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 0 0 1 1 0 0 0 1 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] Function 4 [fnt] Arial 240 0 16385 [algn] 1 1 0 0 0 [spc] 33 244 1 0 0 1 100 [brk] 68 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 0 0 1 1 0 0 0 1 [nfmt] 272 1 3 . , $ Body Text 0 0 [tag] Bullet 1 5 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 288 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 0 <*5> 0 1 1 0 0 0 1 [nfmt] 280 1 2 . , $ Bullet 1 0 0 [tag] Number List 6 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 360 360 360 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 0 <*:>. 360 1 1 0 0 13824 1 [nfmt] 272 1 2 . , $ Number List 0 0 [tag] Subhead 7 [fnt] TimesNewRomanPS 200 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 0 0 1 1 0 0 3328 1 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Title 8 [fnt] Arial MT 360 0 16385 [algn] 4 1 0 0 0 [spc] 33 446 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 0 0 1 1 0 0 12800 1 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Header 9 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 0 0 1 1 0 0 3328 1 [nfmt] 280 1 2 . , $ Header 0 0 [tag] Footer 11 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 0 0 1 1 0 0 2304 1 [nfmt] 280 1 2 . , $ Footer 0 0 [tag] Outline1 12 [fnt] Times New Roman 240 0 49153 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 1 0 1 1 0 0 2304 1 [nfmt] 280 1 2 . , $ Outline1 0 0 [tag] Outline2 0 [fnt] òWÅÇû╛Æ⌐ 240 0 32768 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 2 0 1 1 0 0 2560 1 [nfmt] 280 1 2 . , $ Outline2 0 0 [tag] Outline3 0 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 3 0 1 1 0 0 2560 1 [nfmt] 280 1 2 . , $ Outline3 0 0 [tag] Outline4 0 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 4 0 1 1 0 0 2304 1 [nfmt] 280 1 2 . , $ Outline4 0 0 [tag] Bullet 0 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 0 <*0> 360 1 1 0 0 26624 1 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] Outline6 0 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 6 0 1 1 0 0 2304 1 [nfmt] 280 1 2 . , $ Outline6 0 0 [tag] Outline7 0 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 7 0 1 1 0 0 2304 1 [nfmt] 280 1 2 . , $ Outline7 0 0 [tag] Outline8 0 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 8 0 1 1 0 0 12288 1 [nfmt] 280 1 2 . , $ Outline8 0 0 [tag] Outline9 0 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 9 0 1 1 0 0 2304 1 [nfmt] 280 1 2 . , $ Outline9 0 0 [tag] Outline10 0 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 10 0 1 1 0 0 23808 1 [nfmt] 280 1 2 . , $ Outline10 0 0 [tag] Outline11 0 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 11 0 1 1 0 0 12288 1 [nfmt] 280 1 2 . , $ Outline11 0 0 [tag] Outline12 0 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 12 0 1 1 0 0 0 1 [nfmt] 280 1 2 . , $ Outline12 0 0 [tag] Outline13 0 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 13 0 1 1 0 0 0 1 [nfmt] 280 1 2 . , $ Outline13 0 0 [tag] Outline14 0 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 14 0 1 1 0 0 0 1 [nfmt] 280 1 2 . , $ Outline14 0 0 [tag] Outline5 0 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 5 0 1 1 0 0 0 1 [nfmt] 280 1 2 . , $ Outline5 0 0 [tag] Footnote 0 [fnt] TimesNewRomanPS 240 0 49152 [algn] 1 1 0 720 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 0 0 10 10 1 [spec] 0 0 <*:> 0 1 1 256 0 0 1 [nfmt] 280 1 2 . , $ Footnote 0 0 [lay] Standard 513 [rght] 15840 12240 1 1440 1440 1 1440 1440 0 0 0 0 0 2 1 1440 10800 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [hrght] [lyfrm] 1 11200 0 0 12240 1440 0 1 3 0 0 0 0 0 0 0 0 0 1 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 0 0 0 1 0 1 1440 10800 2 2 4680 3 9360 [txt] @Header@LABEL.SMM <*7><*7>Page <:P10,0,> of <:X3,0;NumPages>11<:X~3,0;NumPages> <:Db > <:b<*!>> > [frght] [lyfrm] 1 13248 0 14400 12240 15840 0 1 3 0 0 0 0 0 0 0 0 0 2 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 0 0 0 1 0 1 1440 10800 2 2 4680 3 9360 [txt] @Footer@ > [elay] [l1] 0 [edoc] @Outline1@<:#293,9360><:f240,BArial,0,0,255>'Declares and defines<:f> @Outline2@<:#269,9360>declare losezeros(num); @Outline2@<:#269,9360>declare roundtotwo(num); @Outline2@<:#269,9360>declare converttounits(num); @Outline2@<:#269,9360>declare zeromin(num); @Outline2@<:#269,9360>declare getdatafile(); @Outline2@<:#269,9360>declare freeglobs(); @Outline2@<:#269,9360>declare customem(); @Outline2@<:#269,9360>declare twips(num); @Outline2@<:#269,9360>declare LetterSize(labelindrt, labelindtop); @Outline2@<:#269,9360>declare A4Size(labelindrt, labelindtop); @Outline1@<:#284,9360>declare B4Size(labelindrt, labelindtop); @Outline3@<:#240,9360><:f,Qélér âSâVâbâN,>declare A4SizePortrait(labelindrt,labelindtop)<:f> @Outline3@<:#240,9360><:f,Qélér âSâVâbâN,>declare B4SizePortrait(labelindrt,labelindtop)<:f> @Outline2@<:#269,9360>declare ManualSize(labelindrt, labelindtop, manualpageheight, carrierwidth); @Outline2@<:#269,9360>Declare PrinterType(); @Outline2@<:#269,9360>Declare GetCurrentCountry(); @Outline2@<:#269,9360>declare getmergedescfile(); @Outline2@<:#269,9360>declare GetNumLabelKeys(labelnumkey); @Outline2@<:#269,9360>Define CurPrinterName() GetInfo(62) @Outline2@<:#269,9360>Define ShowWindow() DllCall("User,ShowWindow,AHH",%1,%2) @Outline2@<:#269,9360>Define GetActiveWindow() DllCall("User,GetActiveWindow,H") @Outline2@<:#269,9360>Define SetFocus() DllCall("User,SetFocus,HH", %1) @Outline2@<:#538,9360>define WinHelp(hWnd, file, cmd, ptr) DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4) @Outline2@<:#269,9360>define FindWindow() DllCall("user,FindWindow,HCC", %1, %2) @Outline2@<:#269,9360>Define EnableWindow() DllCall("user,EnableWindow,HHH", %1, %2) @Outline2@<:#269,9360>define HFONT "Setfont:hFont" @Outline2@<:#538,9360>define SendMessage(hwnd, msg, wpara, lparm) DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4) @Outline2@<:#269,9360>define WM_SETFONT 0x30 @Outline2@<:#538,9360>define CreateFont() DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14) @Outline2@<:#269,9360>define DeleteObject(handle) DllCall("gdi,DeleteObject,HH", %1) @Outline2@<:#269,9360>define HELP_CONTEXT 0x0001 @Outline2@<:#269,9360>define VK_F1 112 @Outline2@<:#269,9360>define NoMouseAdj 1 @Outline1@<:#284,9360>function label() @Outline1@<:#284,9360>singlestep(0) @Outline2@<:#269,9360>'verify this is a clean untitled @Outline3@<:#284,9360>if GetOpenFileName$() !="" or Filechanged(0,0) != 0 @Outline3@ message("<:f,1û╛Æ⌐,>é▒é╠â}âNâìé═JLABELâXâ^âCâïâVü[âgé⌐éτî─é╬éΩé▄é╖üB╠º▓┘/ÉVïKì∞ɼé┼╧╕█Ä└ìsé≡æIé±é┼üAJLABELâXâ^âCâïâVü[âgé≡æIæ≡é╡é─é¡é╛é│éóüB<:f>")'This macro is for the _LABEL style sheet. To use it, choose File/New and leave Run macro selected. @Outline3@ exit function @Outline3@endif @Outline2@hourglass(1) @Outline2@<:#269,9360>ignorekeyboard(2) @Outline2@<:#284,9360><:f240,BArial,0,0,255>'font handling @Outline3@<:#284,9360>AllocGlobalVar(HFONT, 1) @Outline3@<:#284,9360>SetGlobalVar(HFONT, 0) @Outline2@<:#284,9360><:f240,BArial,0,0,255>'collect initial info<:f> @Outline3@<:#284,9360>rmac=getrunningmacrofile$() @Outline3@<:#284,9360>allocglobalvar("units", 1) @Outline3@<:#284,9360>allocglobalvar("inifile", 1) @Outline3@<:#284,9360>inifile="AMILABEL.INI" @Outline3@<:#284,9360>labelheadings=getprofilestring$("LabelTypes", "Headings", inifile) @Outline3@<:#284,9360>if labelheadings = "" @Outline4@<:#284,9360> inipath = GetAmiDirectory$() @Outline4@<:#284,9360> inipathfile=strcat$(inipath, inifile) @Outline4@<:#284,9360> labelheadings=getprofilestring$("LabelTypes", "Headings", inipathfile) @Outline4@<:#284,9360> if labelheadings = "" @Outline4@<:#284,9360> inipath = GetMacPath$() @Outline4@<:#284,9360> inipathfile=strcat$(inipath, inifile) @Outline4@<:#284,9360> labelheadings=getprofilestring$("LabelTypes", "Headings", inipathfile) @Outline4@<:#284,9360> if labelheadings = "" @Outline4@<:#568,9360> message ("<:f,Qélér âSâVâbâN,>AMILABEL.INIé¬î⌐é┬é⌐éΦé▄é╣é±<:f>")'Cannot locate AMILABEL.INI @Outline4@<:#284,9360> exit function @Outline4@<:#284,9360> endif @Outline4@<:#284,9360> endif @Outline4@<:#284,9360> inifile = inipathfile @Outline4@<:#284,9360>endif @Outline3@<:#284,9360>setglobalvar("inifile", inifile) @Outline3@<:#284,9360><:f240,BArial,0,0,255>'unithandler<:f> @Outline4@<:#284,9360>unittoshow=Getprofilestring$("LabelTypes", "Units", inifile) @Outline4@<:#284,9360>if unittoshow="" @Outline4@<:#284,9360> Writeprofilestring("LabelTypes", "Units", "in.", inifile) @Outline4@<:#284,9360> unittoshow="in." @Outline4@<:#284,9360>endif @Outline4@<:#284,9360>setglobalvar("units", unittoshow) @Outline3@<:#284,9360>'decide which labels to use (printer type and country settings) @Outline4@<:#284,9360>printer=getprofilestring$("AmiProOwner", "PrefPrinter", inifile)<:Zfineadj2><:Z~fineadj2> @Outline4@<:#284,9360>if printer="" @Outline4@<:#284,9360> printer=PrinterType() @Outline4@<:#284,9360>endif @Outline4@<:#284,9360>Country=getprofilestring$("AmiProOwner", "PrefCountry", inifile)<:Zfineadj21><:Z~fineadj21> @Outline4@<:#284,9360>if country= "" @Outline4@<:#284,9360> country=GetCurrentCountry() @Outline4@<:#284,9360>endif @Outline4@<:#852,9360>a4countries="United Kingdom, Austria, Belgium (Dutch), Belguim (French), Denmark, Finland, France, Germany, Iceland, Ireland, Netherlands, Norway, Portugal, Spain, Switzerland (French), Switzerland (German), Switzerland (Italian),Japan" @Outline4@<:#284,9360>if printer="Laser" and country="United States" @Outline4@<:#284,9360> labelstouse="8.5"" x 11""" @Outline4@<:#284,9360>elseif printer = "Dot Matrix" and <:f240,2Times New Roman,255,0,0> <:f>country ="United States" @Outline4@<:#284,9360> labelstouse="<:f,Qélér âSâVâbâN,>ÿAæ▒ùpÄå<:f>" @Outline4@<:#284,9360>elseif printer="Laser" and kinstr(1, a4countries, country) @Outline4@<:#312,9360> labelstouse="A4 B4 A4<:f,1û╛Æ⌐,>ëí B4ëí<:f>" @Outline4@<:#284,9360>elseif printer = "Dot Matrix" and kinstr(1, a4countries, country) @Outline4@<:#284,9360> labelstouse="UK Contin. French Contin." @Outline4@<:#284,9360>else @Outline4@<:#284,9360> 'labelstouse="8.5"" x 11"" <:f,Qélér âSâVâbâN,>ÿAæ▒ùpÄå<:f>" @Outline4@<:#284,9360> labelstouse="A4 <:f,Qélér âSâVâbâN,>B4 A4ëí B4ëí ÿAæ▒ùpÄå<:f>" @Outline4@<:#284,9360>endif @Outline4@<:#284,9360>labelstouse = strcat$(labelstouse, " Custom") @Outline3@<:#284,9360>maxlabelskey=getprofilestring$("LabelTypes", "NextCustomLabelKey", inifile) @Outline4@<:#284,9360>if maxlabelskey = "" @Outline4@<:#284,9360> maxlabelskey = "Label95" @Outline4@<:#284,9360> writeprofilestring("LabelTypes", "NextCustomLabelKey", maxlabelskey, inifile) @Outline4@<:#284,9360>endif @Outline2@<:#303,9360>StatusBarMsg("<:f,Qélér âSâVâbâN,>╫═▐┘└▓╠▀é≡ô╟é▌ì₧é±é┼éóé▄é╖...<:f>.") @Outline3@<:#284,9360><:f240,BArial,0,0,255>'singlestep(1)<:f> @Outline3@<:#284,9360>hourglass(1) @Outline3@<:#284,9360>maxlabels = GetNumLabelKeys(maxlabelskey) @Outline3@<:#284,9360>ret=chr$(13) @Outline3@<:#284,9360>'message("maxlabelskey = {maxlabels}") @Outline3@<:#284,9360>dim labels(maxlabels) @Outline3@<:#284,9360>'message (labelstouse) @Outline3@<:#284,9360>for i=1 to maxlabels @Outline3@<:#284,9360> labelline=strcat$("Label", i) @Outline3@<:#284,9360> labellinetext=getprofilestring$("LabelTypes", labelline, inifile) @Outline3@<:#284,9360> labelpagetype=strfield$(labellinetext, 11, ",") @Outline3@<:#284,9360> if klen(labellinetext) << 10 @Outline3@<:#284,9360> break @Outline3@<:#284,9360> endif @Outline3@<:#284,9360><:f240,2Times New Roman,255,0,0> if kinstr(1, labelstouse, labelpagetyp<:f240,2Times New Roman,255,0,0>e) <:f> @Outline3@<:#284,9360> numlabels = numlabels + 1 @Outline3@<:#284,9360> labels(numlabels)=strcat$(labellinetext, "~" , i) @Outline3@<:#568,9360> statusbarmsg("<:f,Qélér âSâVâbâN,>âëâxâïé≡ô╟é▌ì₧é±é┼éóé▄é╖ {numlabels}<:f>")'Loading label {numlabels} @Outline3@<:#284,9360> else @Outline3@<:#284,9360> statusbarmsg("<:f,Qélér âSâVâbâN,>âëâxâïé≡â`âFâbâNé╡é─éóé▄é╖ {i}<:f>")'Checking label {i} @Outline3@<:#284,9360><:f240,2Times New Roman,255,0,0> endif<:f> @Outline3@<:#284,9360>next @Outline3@<:#284,9360>'message("{i}; {numlabels}; {labels(i)}") @Outline3@<:#284,9360><:f240,BArial,0,0,255>'tidyup<:f> @Outline4@<:#284,9360><:f240,BArial,0,0,255>'result=ArrayDelete(&labels, i)<:f> @Outline4@<:#284,9360><:f240,BArial,0,0,255>'if result != 1<:f> @Outline4@<:#284,9360><:f240,BArial,0,0,255>' message("Couldn't remove last item from array")<:f> @Outline4@<:#284,9360><:f240,BArial,0,0,255>'endif<:f> @Outline2@<:#269,9360>'message (numlabels) @Outline2@<:#269,9360>StatusBarMsg("<:f240,QòWÅÇâSâVâbâN,0,0,0>âëâxâïé≡ò└é╫ò╧éªé─éóé▄é╖<:f>") @Outline3@<:#284,9360><:f240,BArial,0,0,255>'load the list boxes<:f> @Outline3@<:#289,9360>for fieldtosorton=1 to 2 <:f240,BArial,0,0,255>'go through this 2x to fill both list boxes<:f> @Outline3@<:#284,9360> if fieldtosorton = 1 @Outline3@<:#284,9360> StatusBarMsg("<:f,Qélér âSâVâbâN,>ò¬ù▐ö╘ìåé┼ò└é╫ò╧éªé─éóé▄é╖...<:f>")'Sorting by part number... @Outline3@<:#284,9360> else @Outline3@<:#568,9360> StatusBarMsg("<:f,Qélér âSâVâbâN,>âëâxâïé╠â^âCâvé┼ò└é╫ò╧éªé─éóé▄é╖...<:f>")'Sorting by label type... @Outline3@<:#284,9360> endif @Outline3@<:#284,9360><:f240,BArial,0,0,255>' result=ArraySort(&labels, fieldtosorton, ",")<:f> @Outline3@<:#284,9360> dim displayfield(numlabels) @Outline3@<:#289,9360> whichfieldtouse=1 <:f240,BArial,0,0,255>'1 is the part number<:f> @Outline3@<:#289,9360> whichotherfieldtouse=2 <:f240,BArial,0,0,255>'2 is the description<:f> @Outline3@<:#284,9360> for i = 1 to numlabels @Outline3@<:#284,9360> field1=strfield$(Labels(i), whichfieldtouse, ",") @Outline3@<:#284,9360> field2=strfield$(Labels(i), whichotherfieldtouse, ",") @Outline3@<:#284,9360> recnum=strfield$(Labels(i), 2, "~") @Outline3@<:#289,9360> <:f240,BArial,0,0,255>'check to make sure this is a valid (non-empty) record)<:f> @Outline4@<:#284,9360>spacestilde=" ~" @Outline4@<:#284,9360> if recnum <;> 0 @Outline4@<:#284,9360> if fieldtosorton = 1 @Outline4@<:#284,9360> texttoinsert=strcat$(field1, " - ", field2, spacestilde , recnum) @Outline4@<:#568,9360> statusbarmsg("<:f,Qélér âSâVâbâN,>ò¬ù▐ö╘ìåé≡ô╟é▌ì₧é±é┼éóé▄é╖ {field1}<:f>")'Loading part number {field1} @Outline4@<:#284,9360> else @Outline4@<:#284,9360> texttoinsert=strcat$(field2, " - ", field1, spacestilde , recnum) @Outline4@<:#568,9360> statusbarmsg("<:f,Qélér âSâVâbâN,>Éαû╛é≡ô╟é▌ì₧é±é┼éóé▄é╖ {field2}<:f>")'Loading description {field2} @Outline4@<:#284,9360> endif @Outline4@<:#284,9360> ArrayInsert(&displayfield, i, texttoinsert) @Outline4@<:#284,9360> endif @Outline3@<:#284,9360> next @Outline3@<:#284,9360>'message (recnum) @Outline3@<:#284,9360> if fieldtosorton = 1 @Outline3@<:#284,9360> filledit(9000, &displayfield) @Outline3@<:#284,9360> elseif fieldtosorton=2 @Outline3@<:#284,9360> filledit(9002, &displayfield) @Outline3@<:#284,9360> endif @Outline3@<:#284,9360>next @Outline2@<:#269,9360>filledit(20, True) @Outline2@<:#572,9360>StatusBarMsg("<:f,Qélér âSâVâbâN,>âëâxâïé≡ò\Īé╖éΘÅÇö⌡é≡é╡é─éóé▄é╖...<:f>")'Preparing labels for display.. @Outline2@<:#284,9360><:f240,BArial,0,0,255>'set callbacks and fill 1st heightwidth<:f> @Outline3@<:#284,9360>DlgKeyInterrupt(VK_F1, "{rmac}!helper") @Outline3@<:#284,9360>SetDlgCallBack(9000,"{rmac}!heightwidthcallback") @Outline3@<:#284,9360>SetDlgCallBack(9002,"{rmac}!heightwidthcallback") @Outline3@<:#284,9360>SetDlgCallBack(24,"{rmac}!unitbutton") @Outline3@<:#284,9360>SetDlgCallBack(20,"{rmac}!sorttype") @Outline3@<:#284,9360>SetDlgCallBack(0,"{rmac}!prebuild") @Outline3@<:#284,9360>StatusBarMsg("") @Outline3@<:#284,9360>hourglass(0) @Outline2@<:#269,9360>box=dialogbox(".", "labeltest") @Outline3@<:#284,9360>if box=0 or box =2 @Outline3@<:#284,9360> freeglobs() @Outline3@<:#284,9360> exit function @Outline3@<:#284,9360>elseif box=4 @Outline3@<:#284,9360> customem() @Outline3@<:#284,9360> freeglobs() @Outline3@<:#284,9360> exit function @Outline3@<:#284,9360>endif @Outline2@<:#284,9360><:f240,BArial,0,0,255>'find their labeldata<:f> @Outline3@<:#284,9360>if getdialogfield$(20) = True @Outline3@<:#284,9360> labelchosen=getdialogfield$(9002) @Outline3@<:#284,9360>elseif getdialogfield$(20) = False @Outline3@<:#284,9360> labelchosen=getdialogfield$(9000) @Outline3@<:#284,9360>endif @Outline3@<:#284,9360>key=strfield$(labelchosen, 2, "~") @Outline3@<:#284,9360>labelnumchosen=ArraySearch(&labels, key, 2, "~") @Outline3@<:#284,9360>labeldata=labels(labelnumchosen) @Outline3@<:#289,9360>labeldata=strfield$(labeldata, 1, "~") <:f240,BArial,0,0,255>'chop off the key<:f> @Outline3@<:#284,9360>switch box @Outline3@<:#284,9360> case 1 @Outline3@<:#284,9360> call mergem(labeldata) @Outline3@<:#284,9360> case 3 @Outline3@<:#284,9360> call manualem(labeldata) @Outline3@<:#284,9360>endswitch @Outline2@<:#269,9360>freeglobs() @Outline2@<:#269,9360>'font bailout @Outline3@<:#284,9360>font = GetGlobalVar$(HFONT) ' If we created @Outline3@<:#284,9360>if (0 != font) ' the font. @Outline3@<:#284,9360> DeleteObject(font) ' Delete it @Outline3@<:#284,9360>endif @Outline3@<:#284,9360>allocglobalvar(hfont, 1) @Outline3@<:#284,9360>freeglobalvar(HFONT) @Outline2@<:#269,9360>hourglass(0) @Outline2@<:#269,9360>end function @Outline1@<:#284,9360>function freeglobs() @Outline2@<:#269,9360>freeglobalvar("units") @Outline2@<:#269,9360>freeglobalvar("inifile") @Outline2@<:#269,9360>end function @Outline1@<:#284,9360>function unitbutton(Hdlg,id,dummy) @Outline2@<:#269,9360>ignorekeyboard(2) @Outline2@<:#269,9360>unittoshow=getglobalvar$("units") @Outline2@<:#269,9360>switch unittoshow @Outline3@<:#284,9360> case "in." @Outline3@<:#284,9360> newunit="cm." @Outline3@<:#284,9360> case "cm." @Outline3@<:#284,9360> newunit="picas" @Outline3@<:#284,9360> case "picas" @Outline3@<:#284,9360> newunit="pt." @Outline3@<:#284,9360> case "pt." @Outline3@<:#284,9360> newunit="in." @Outline3@<:#284,9360>endswitch @Outline2@<:#269,9360>inifile=Getglobalvar$("inifile") @Outline2@<:#269,9360>Writeprofilestring("LabelTypes", "Units", newunit, inifile) @Outline2@<:#269,9360>setglobalvar("units", newunit) @Outline2@<:#269,9360>setdlgitemtext(hdlg, id, newunit) @Outline2@<:#269,9360>if getdlgitemtext(hdlg, 20) = True @Outline2@<:#269,9360> call heightwidthcallback(hdlg, 9002, dummy) @Outline2@<:#269,9360>else @Outline2@<:#269,9360> call heightwidthcallback(hdlg, 9000, dummy) @Outline2@<:#269,9360>endif @Outline2@<:#269,9360>end function @Outline1@<:#284,9360>function helper() @Outline2@<:R1,15,1,0,1,720,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,><:#269,9360>prohWnd = FindWindow("AmiProWndA", 0) @Outline2@<:R1,15,1,0,1,720,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,><:#269,9360>helpfile = strcat$(GetAmiDirectory$(), "amipro.hlp") @Outline2@<:R1,15,1,0,1,720,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,><:#322,9360>helpnum = 139 <:f240,BArial,0,0,255>'or the pane you want to display (151 is Undo)<:f> @Outline2@<:R><:#269,9360>WinHelp (prohWnd, helpfile, HELP_CONTEXT, helpnum) @Outline2@<:#269,9360>end function @Outline1@<:#284,9360>function prebuild(Hdlg,id,dummy) @Outline2@<:#269,9360>id=20 @Outline2@<:#269,9360>call sorttype(Hdlg,id,dummy) @Outline2@<:#269,9360>id=9002 @Outline2@<:#269,9360>call heightwidthcallback(Hdlg,id,dummy) @Outline2@<:#269,9360>setdlgitemtext(hdlg, 24, Getglobalvar$("units")) @Outline2@<:#269,9360>Font = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 128, 0, 0, 0, 32, "System") @Outline3@<:#284,9360>if (Font) @Outline3@<:#284,9360> hctl = GetDlgItem(hDlg, 9000) @Outline3@<:#284,9360> hctl2 = GetDlgItem(hDlg, 9002) @Outline3@<:#284,9360> hctl3 = GetDlgItem(hDlg, 1002) @Outline3@<:#284,9360> hctl4 = GetDlgItem(hDlg, 1004) @Outline3@<:#284,9360> SendMessage(hctl, WM_SETFONT, font, 0) @Outline3@<:#284,9360> SendMessage(hctl2, WM_SETFONT, font, 0) @Outline3@<:#284,9360> SendMessage(hctl3, WM_SETFONT, font, 0) @Outline3@<:#284,9360> SendMessage(hctl4, WM_SETFONT, font, 0) @Outline3@<:#284,9360> SetGlobalVar(HFONT, Font) @Outline3@<:#284,9360>endif @Outline2@<:#269,9360>end function @Outline1@<:#284,9360>function sorttype(Hdlg,id,dummy) @Outline2@<:#269,9360>sortbylabeltype=getdlgitemtext(hdlg, id) @Outline2@<:#269,9360>if sortbylabeltype=1 @Outline2@<:#269,9360> ShowWindow(GetDlgItem(Hdlg,9002), 1) @Outline2@<:#269,9360> ShowWindow(GetDlgItem(Hdlg,9000), 0) @Outline2@<:#269,9360> id=9002 @Outline2@<:#269,9360> call heightwidthcallback(Hdlg,id,dummy) @Outline2@<:#269,9360>else @Outline2@<:#269,9360> ShowWindow(GetDlgItem(Hdlg,9000), 1) @Outline2@<:#269,9360> ShowWindow(GetDlgItem(Hdlg,9002), 0) @Outline2@<:#269,9360> id=9000 @Outline2@<:#269,9360> call heightwidthcallback(Hdlg,id,dummy) @Outline2@<:#269,9360>endif @Outline2@<:#269,9360>end function @Outline1@<:#284,9360>function heightwidthcallback(Hdlg,id,dummy) @Outline2@<:#269,9360>ignorekeyboard(2) @Outline2@<:#269,9360>inifile="AMILABEL.INI" @Outline2@<:#269,9360>labelchosen=getdlgitemtext(hdlg, id) @Outline2@<:#269,9360>key=strfield$(labelchosen, 2, "~"); @Outline2@<:#284,9360><:f240,BArial,0,0,255>'labelnumchosen=ArraySearch(*labels, key, 2, "~")<:f> @Outline2@<:#284,9360><:f240,BArial,0,0,255>'labeldata=labels(labelnumchosen)<:f> @Outline2@<:#269,9360>labelline=strcat$("Label",key) @Outline2@<:#269,9360>labeldata=GetProfileString$("LabelTypes", labelline, inifile) @Outline2@<:#269,9360>height=strfield$(labeldata, 3, ",") @Outline2@<:#269,9360> height=converttounits(height) @Outline2@<:#269,9360> height=roundtotwo(height) @Outline2@<:#269,9360>width=strfield$(labeldata, 4, ",") @Outline2@<:#269,9360> width=converttounits(width) @Outline2@<:#269,9360> width=roundtotwo(width) @Outline2@<:#269,9360>heightwidth=strcat$(height, " x ", width ) @Outline2@<:#269,9360>setdlgitemtext(hdlg, 1002, heightwidth) @Outline2@<:#269,9360>labelpagetype=strfield$(labeldata, 11, ",") @Outline2@<:#269,9360>setdlgitemtext(hdlg, 1004, labelpagetype) @Outline2@<:#269,9360>end function @Outline1@<:#284,9360>function losezeros(num) @Outline2@<:#269,9360>if IsNumeric(num) != 1 or kinstr(1 num, ".") = 0 @Outline2@<:#269,9360> losezeros=num @Outline2@<:#269,9360> exit function @Outline2@<:#269,9360>endif @Outline2@<:#269,9360>while (kmid$(num, klen(num),1) =0) 'right$(num,1) @Outline2@<:#269,9360> 'num = left$(num, (klen(num) - 1)) @Outline2@<:#269,9360> num = kmid$(num,1,(klen(num) - 1) ) @Outline2@<:#269,9360>wend @Outline2@<:#269,9360>if kmid$(num,klen(num),1) = "" then 'right$(num, 1) = "." @Outline2@<:#269,9360> 'num=left$(num, (len(num) - 1)) @Outline2@<:#269,9360> num = kmid$(num , 1 , (klen(num) - 1)) @Outline2@<:#269,9360>endif @Outline2@<:#269,9360>losezeros=num @Outline2@<:#269,9360>end function @Outline1@<:#284,9360>function roundtotwo(num) @Outline2@<:#269,9360>roundtotwo=FormatNum$("", "", 2, (round(num * 100))/100) @Outline2@<:#269,9360><:>end function @Outline1@<:#284,9360>function converttounits(num) @Outline2@<:#269,9360>unittoshow=getglobalvar$("units") @Outline2@<:#269,9360>switch unittoshow @Outline2@<:#269,9360> case "in." @Outline2@<:#322,9360> <:f240,BArial,0,0,255>'Avery data is in inches; no conversion is necessary<:f> @Outline2@<:#269,9360> newnum=num @Outline2@<:#269,9360> case "cm." @Outline2@<:#269,9360> newnum=2.54 * num @Outline2@<:#269,9360> case "picas" @Outline2@<:#269,9360> newnum=6 * num @Outline2@<:#269,9360> case "pt." @Outline2@<:#269,9360> newnum=72 * num @Outline2@<:#269,9360>endswitch @Outline2@<:#269,9360>converttounits=newnum @Outline2@<:#269,9360>end function @Outline1@<:#284,9360>function GetNumLabelKeys(labelnumkey) @Outline2@<:#269,9360>lenthiskeynum = klen(labelnumkey) - 5 @Outline2@<:#269,9360>'thiskeynum = right$(labelnumkey, lenthiskeynum) @Outline2@<:#538,9360>thiskeynum = kmid$(labelnumkey,klen(labelnumkey)-lenthiskeynum + 1 , lenthiskeynum) @Outline2@<:#269,9360>GetNumLabelKeys = thiskeynum + 1 @Outline2@<:#269,9360>end function @Outline1@<:#284,9360>function mergem(labeldata) @Outline2@<:#284,9360><:f240,BArial,0,0,255>'parse labeldata<:f> @Outline3@<:#284,9360>labelheight=strfield$(labeldata, 3, ",") @Outline3@<:#284,9360>labelwidth=strfield$(labeldata, 4, ",") @Outline3@<:#284,9360>numacross=strfield$(labeldata, 5, ",") @Outline3@<:#284,9360>numdown=strfield$(labeldata, 6, ",") @Outline3@<:#284,9360>topmarg=strfield$(labeldata, 7, ",") @Outline3@<:#284,9360>sidemarg=strfield$(labeldata, 8, ",") @Outline3@<:#284,9360>horizpitch=strfield$(labeldata, 9, ",") @Outline3@<:#284,9360>vertpitch=strfield$(labeldata, 10, ",") @Outline3@<:#284,9360>labelpagetype = strfield$(labeldata,11,",") @Outline3@<:#284,9360>if vertpitch="-" @Outline3@<:#284,9360> vertpitch = labelheight @Outline3@<:#284,9360>endif @Outline3@<:#284,9360>if horizpitch="-" @Outline3@<:#284,9360> horizpitch = labelwidth @Outline3@<:#284,9360>endif @Outline2@<:#284,9360><:f240,BArial,0,0,255>'fine-adjust constants<:f> @Outline3@<:#284,9360>inifile=getglobalvar$("inifile") @Outline3@<:#284,9360>fineright=getprofilestring$("AmiProOwner", "FineRightMargin", inifile)<:Zfineadj><:Z~fineadj> @Outline3@<:#284,9360>if fineright="" @Outline3@<:#284,9360> fineright= 0.125 @Outline3@<:#284,9360>endif @Outline3@<:#284,9360>fineindrt=getprofilestring$("AmiProOwner", "FineIndRight", inifile)<:Zfineadj1><:Z~fineadj1> @Outline3@<:#284,9360>if fineindrt= "" @Outline3@<:#284,9360> fineindrt= 0.25 @Outline3@<:#284,9360>endif @Outline3@<:#284,9360>fineindtop=getprofilestring$("AmiProOwner", "FineIndTop", inifile)<:Zfineadj11><:Z~fineadj11> @Outline3@<:#284,9360>if fineindrt = "" @Outline3@<:#284,9360> fineindtop = 0.25 @Outline3@<:#284,9360>endif @Outline2@<:#284,9360><:f240,BArial,0,0,255>'make pro info<:f> @Outline3@<:#284,9360>labelindrt=Twips(zeromin(sidemarg - fineindrt)) @Outline3@<:#284,9360>labelindtop=Twips(zeromin(topmarg - fineindtop)) @Outline3@<:#284,9360>protop=twips(0) @Outline3@<:#284,9360>proleft=twips(0) @Outline3@<:#284,9360>proright=twips(fineright + zeromin((horizpitch - labelwidth))) @Outline3@<:#284,9360>probottom=twips(zeromin(vertpitch - labelheight)) @Outline3@<:#284,9360>proheight=twips(vertpitch) @Outline3@<:#284,9360>prowidth=twips(horizpitch) @Outline3@<:#284,9360>righttab=twips((labelwidth - fineright)) @Outline3@<:#284,9360>centertab=righttab / 2 @Outline3@<:#284,9360>firstlefttab=centertab / 3 @Outline3@<:#284,9360>secondlefttab =firstlefttab * 2 @Outline2@<:#284,9360><:f240,BArial,0,0,255>'change the page layout<:f> @Outline3@<:#284,9360>LayoutMode() @Outline3@<:#284,9360>ModLayoutInit(512) @Outline3@<:#568,9360>ModLayoutRightPage(proleft, protop, proright, probottom, 1 0 1 proleft, righttab, 4 1 firstlefttab 1 secondlefttab 2 centertab 3 righttab) @Outline3@<:#568,9360>ModLayoutRightHeader(proleft, 0, proright, 0 1 0 1 proleft, righttab, 4 1 firstlefttab 1 secondlefttab 2 centertab 3 righttab) @Outline3@<:#568,9360>ModLayoutRightFooter(proleft, 0, proright, 0 1 0 1 proleft, righttab, 4 1 firstlefttab 1 secondlefttab 2 centertab 3 righttab) @Outline3@<:#284,9360>if labelpagetype="A4<:f,Qélér âSâVâbâN,>ëí" or labelpagetype="B4ëí" @Outline3@<:#240,9360><:f,Qélér âSâVâbâN,> ModLayoutPageSize(<:f><:f,Qélér âSâVâbâN,>proheight,<:f><:f,Qélér âSâVâbâN,>prowidth,<:f><:f,Qélér âSâVâbâN,>1,(256 + 7) ) @Outline3@<:#240,9360><:f,Qélér âSâVâbâN,>else @Outline3@<:#284,9360> ModLayoutPageSize(proheight, prowidth, 1, 7 ) @Outline3@<:#284,9360>endif @Outline3@<:#284,9360>ModLayoutFinish() @Outline2@<:#269,9360>prohwnd=GetActiveWindow() @Outline2@<:#269,9360>rmac=getrunningmacrofile$() @Outline2@<:#269,9360>runlater("{rmac}!AmiUIGray(3, 0)", 0.1) @Outline2@<:#269,9360>runlater("{rmac}!AmiUIGray(4, 0)", 0.1) @Outline2@<:#269,9360>pause(005) @Outline2@<:#269,9360>SelectMergeDataFile @Outline2@<:#269,9360>pause(001) @Outline2@<:#284,9360><:f240,BArial,0,0,255>'InsertMerge<:f> @Outline2@<:#269,9360>datafile=getdatafile() @Outline2@<:#269,9360>if datafile != "" @Outline2@<:#269,9360> descfile = GetMergeDescFile() @Outline2@<:#538,9360> MergeMacro(24 datafile descfile numacross numdown labelindrt labelindtop ) @Outline2@<:#269,9360> mergeAction(mergestop) @Outline2@<:#269,9360>endif @Outline2@<:#269,9360>setfocus(prohwnd) @Outline2@<:#269,9360>end function @Outline1@<:#284,9360>function manualem(labeldata) @Outline2@<:#284,9360><:f240,BArial,0,0,255>'parse labeldata<:f> @Outline3@<:#284,9360>labelheight=strfield$(labeldata, 3, ",") - (0.03 / 2.54) 'yasu @Outline3@<:#284,9360>labelwidth=strfield$(labeldata, 4, ",") @Outline3@<:#284,9360>numacross=strfield$(labeldata, 5, ",") @Outline3@<:#284,9360>numdown=strfield$(labeldata, 6, ",") @Outline3@<:#284,9360>topmarg=strfield$(labeldata , 7, ",") @Outline3@<:#284,9360>sidemarg=strfield$(labeldata, 8, ",") @Outline3@<:#284,9360>horizpitch=strfield$(labeldata, 9, ",") @Outline3@<:#284,9360>vertpitch=strfield$(labeldata, 10, ",") @Outline3@<:#284,9360>labelpagetype=strfield$(labeldata, 11, ",") @Outline3@<:#284,9360>if vertpitch="-" @Outline3@<:#284,9360> vertpitch = labelheight @Outline3@<:#284,9360>endif @Outline3@<:#284,9360>vertpitch = vertpitch - 0.03 / 2.54 'yasu @Outline3@<:#284,9360>if horizpitch="-" @Outline3@<:#284,9360> horizpitch = labelwidth @Outline3@<:#284,9360>endif @Outline2@<:#284,9360><:f240,BArial,0,0,255>'fine-adjust constants<:f><:f240,BArial,0,0,255> <:f> @Outline3@<:#284,9360>fineright= 0.125 @Outline3@<:#284,9360>fineindrt= 0.125 @Outline3@<:#284,9360>fineindtop = 0 @Outline3@<:#284,9360>finewidth= 0.5 / numacross @Outline2@<:#284,9360><:f240,BArial,0,0,255>'make pro info<:f> @Outline3@<:#284,9360>labelindrt=Twips(zeromin(sidemarg + fineindrt)) @Outline3@<:#284,9360>labelindtop=Twips(zeromin(topmarg - fineindtop)) @Outline3@<:#284,9360>protop=twips(0) @Outline3@<:#284,9360>proleft=twips(0) @Outline3@<:#284,9360>proright=twips(fineright + zeromin((horizpitch - labelwidth))) @Outline3@<:#284,9360>probottom=twips(zeromin(vertpitch - labelheight)) @Outline3@<:#284,9360>proheight=twips(labelheight) @Outline3@<:#284,9360>prowidth=twips(zeromin(labelwidth - finewidth)) @Outline3@<:#284,9360>righttab=twips((labelwidth - fineright)) @Outline3@<:#284,9360>centertab=righttab / 2 @Outline3@<:#284,9360>firstlefttab=centertab / 3 @Outline3@<:#284,9360>secondlefttab =firstlefttab * 2 @Outline3@<:#284,9360>manualpageheight = Twips(vertpitch) @Outline3@<:#284,9360>carrierwidth = Twips((2 * sidemarg) + (horizpitch * numacross)) @Outline2@<:#269,9360>if labelpagetype="A4" @Outline3@<:#284,9360> A4Size(labelindrt, labelindtop) @Outline3@<:#284,9360> Tables(1, 0, NumAcross, NumDown) @Outline3@<:#284,9360> TableLayout(2, 0, prowidth, proright, ProHeight, probottom, 0, 0, 0, 0, Off @Outline3@<:#284,9360> , NoMouseAdj) @Outline3@<:#284,9360>elseif labelpagetype="A4<:f,Qélér âSâVâbâN,>ëí" @Outline3@<:#240,9360><:f,Qélér âSâVâbâN,> A4SizePortrait(labelindrt,labelindtop) @Outline3@<:#240,9360><:f,Qélér âSâVâbâN,> Tables(1,0,NumAcross,NumDown) @Outline3@<:#240,9360><:f,Qélér âSâVâbâN,> TableLayout(2,0,prowidth,proright,proHeight,probottom,0,0,0,0,Off @Outline3@<:#240,9360><:f,Qélér âSâVâbâN,> ,NoMouseAdj) @Outline3@<:#284,9360>elseif labelpagetype="B4" @Outline3@<:#284,9360> 'message("NumAcross = {numAcross},NumDown = {numDown}") @Outline3@<:#568,9360> 'message("proheight = {proheight},prowidth={prowidth},proright={proright}.probottom = {probottom}") @Outline3@<:#284,9360> B4Size(labelindrt,labelindtop) @Outline3@<:#284,9360> Tables(1,0,NumAcross,NumDown) @Outline3@<:#284,9360> TableLayout(2,0,prowidth,proright,proheight,probottom,0,0,0,0,off,NoMouseAdj) @Outline3@<:#284,9360>elseif labelpagetype="B4<:f,Qélér âSâVâbâN,>ëí" @Outline3@<:#240,9360><:f,Qélér âSâVâbâN,> B4SizePortrait(labelindrt,labelindtop) @Outline3@<:#240,9360><:f,Qélér âSâVâbâN,> Tables(1,0,NumAcross,NumDown) @Outline3@<:#240,9360><:f,Qélér âSâVâbâN,> TableLayout(2,0,prowidth,proright,proHeight,probottom,0,0,0,0,off @Outline3@<:#240,9360><:f,Qélér âSâVâbâN,> ,NoMouseAdj) @Outline2@<:#269,9360>elseif labelpagetype="ÿAæ▒ùpÄå" @Outline3@<:#284,9360> ManualSize(labelindrt, labelindtop, (manualpageheight + labelindtop), carrierwidth) @Outline3@<:#284,9360>if NumAcross <;> 1 @Outline3@<:#284,9360> Tables(1, 0, NumAcross, 1) @Outline3@<:#284,9360> TableLayout(2, 0, prowidth, proright, ProHeight, 0, 0, 0, 0, 0, Off, NoMouseAdj) @Outline3@<:#284,9360>endif @Outline2@<:#322,9360>else <:f240,BArial,0,0,255>'pagetype = 8.5 x 11<:f> @Outline3@<:#284,9360> LetterSize(labelindrt, labelindtop) @Outline3@<:#284,9360> Tables(1, 0, NumAcross, NumDown) @Outline3@<:#568,9360> TableLayout(2, 0, prowidth, proright, ProHeight, probottom, 0, 0, 0, 0, Off, NoMouseAdj) @Outline2@<:#269,9360>endif @Outline2@<:#284,9360><:f240,BArial,0,0,255>'message("Manual module not complete")<:f> @Outline2@<:#269,9360>end function @Outline1@<:#284,9360>function B4Size(labelindrt, labelindtop) @Outline2@<:#269,9360>ModLayoutInit(512 ) @Outline2@<:#538,9360>ModLayoutRightPage(labelindrt labelindtop 0 0 2 0 1 0 14570 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 ) @Outline2@<:#269,9360>ModLayoutPageSize(20636 14570 2 2 ) @Outline2@<:#538,9360>ModLayoutRightHeader(labelindrt 0 0 0 2 0 1 labelindrt 11908 2 2 4680 3 9360 ) @Outline2@<:#538,9360>ModLayoutRightFooter(labelindrt 0 0 0 2 0 1 labelindrt 11908 2 2 4680 3 9360 ) @Outline2@<:#269,9360>ModLayoutFinish( ) @Outline2@<:#269,9360>END FUNCTION @Outline1@<:#284,9360>function B4SizePortrait(labelindrt, labelindtop) @Outline2@<:#269,9360>ModLayoutInit(512 ) @Outline2@<:#538,9360>ModLayoutRightPage(labelindrt labelindtop 0 0 2 0 1 0 14570 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 ) @Outline2@<:#269,9360>ModLayoutPageSize(14570 20636 2 (2 + 256) ) @Outline2@<:#538,9360>ModLayoutRightHeader(labelindrt 0 0 0 2 0 1 labelindrt 11908 2 2 4680 3 9360 ) @Outline2@<:#538,9360>ModLayoutRightFooter(labelindrt 0 0 0 2 0 1 labelindrt 11908 2 2 4680 3 9360 ) @Outline2@<:#269,9360>ModLayoutFinish( ) @Outline2@<:#269,9360>END FUNCTION @Outline1@<:#284,9360>function A4Size(labelindrt, labelindtop) @Outline2@<:#269,9360>ModLayoutInit(512 ) @Outline2@<:#807,9360>ModLayoutRightPage(labelindrt labelindtop 0 0 2 0 1 labelindrt 11908 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 ) @Outline2@<:#269,9360>ModLayoutPageSize(16833 11908 2 4 ) @Outline2@<:#538,9360>ModLayoutRightHeader(labelindrt 0 0 0 2 0 1 labelindrt 11908 2 2 4680 3 9360 ) @Outline2@<:#538,9360>ModLayoutRightFooter(labelindrt 0 0 0 2 0 1 labelindrt 11908 2 2 4680 3 9360 ) @Outline2@<:#269,9360>ModLayoutFinish( ) @Outline2@<:#269,9360>END FUNCTION @Outline1@<:#284,9360>function A4SizePortrait(labelindrt, labelindtop) @Outline2@<:#269,9360>ModLayoutInit(512 ) @Outline2@<:#807,9360>ModLayoutRightPage(labelindrt labelindtop 0 0 2 0 1 labelindrt 16833 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 ) @Outline2@<:#269,9360>ModLayoutPageSize(11908 16833 2 (4 + 256) ) @Outline2@<:#538,9360>ModLayoutRightHeader(labelindrt 0 0 0 2 0 1 labelindrt 16833 2 2 4680 3 9360 ) @Outline2@<:#538,9360>ModLayoutRightFooter(labelindrt 0 0 0 2 0 1 labelindrt 16833 2 2 4680 3 9360 ) @Outline2@<:#269,9360>ModLayoutFinish( ) @Outline2@<:#269,9360>End Function @Outline1@<:#284,9360>function LetterSize(labelindrt, labelindtop) @Outline2@<:#269,9360>ModLayoutInit(512 ) @Outline2@<:#807,9360>ModLayoutRightPage(labelindrt labelindtop 0 0 2 0 1 labelindrt 12240 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 ) @Outline2@<:#269,9360>ModLayoutPageSize(15840 12240 2 1 ) @Outline2@<:#538,9360>ModLayoutRightHeader(labelindrt 0 0 0 2 0 1 labelindrt 12240 2 2 4680 3 9360 ) @Outline2@<:#538,9360>ModLayoutRightFooter(labelindrt 0 0 0 2 0 1 labelindrt 12240 2 2 4680 3 9360 ) @Outline2@<:#269,9360>ModLayoutFinish( ) @Outline2@<:#269,9360>END FUNCTION @Outline1@<:#284,9360>function ManualSize(labelindrt, labelindtop, manualpageheight, carrierwidth) @Outline2@<:#284,9360><:f240,BArial,0,0,255>'set page width as carrier width, height as label pitch<:f> @Outline2@<:#269,9360>ModLayoutInit(512 ) @Outline2@<:#807,9360>ModLayoutRightPage(labelindrt labelindtop 0 0 2 0 1 labelindrt carrierwidth 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 ) @Outline2@<:#269,9360>ModLayoutPageSize(manualpageheight carrierwidth 2 1 ) @Outline2@<:#538,9360>ModLayoutRightHeader(labelindrt 0 0 0 2 0 1 labelindrt carrierwidth 2 2 4680 3 9360 ) @Outline2@<:#538,9360>ModLayoutRightFooter(labelindrt 0 0 0 2 0 1 labelindrt carrierwidth 2 2 4680 3 9360 ) @Outline2@<:#269,9360>ModLayoutFinish( ) @Outline2@<:#269,9360>END FUNCTION @Outline1@<:#284,9360>function customem() @Outline2@<:#269,9360>ModifyLayout @Outline2@<:#269,9360>SelectMergeDataFile @Outline2@<:#269,9360>end function @Outline1@<:#284,9360>function zeromin(num) @Outline2@<:#269,9360>if num << 0 @Outline2@<:#269,9360> num = 0 @Outline2@<:#269,9360>endif @Outline2@<:#269,9360>zeromin=num @Outline2@<:#269,9360>end function @Outline1@<:#284,9360>function twips(num) @Outline2@<:#269,9360>twips = num * 1440 @Outline2@<:#269,9360>end function @Outline1@<:#284,9360>Function getdatafile() @Outline2@<:#269,9360>MergeOpts = GetInfo(165) @Outline2@<:#269,9360>GetDataFile = StrField$(MergeOpts,8,",") @Outline2@<:#269,9360>end function @Outline1@<:#284,9360>Function getmergedescfile() @Outline2@<:#269,9360>MergeOpts = GetInfo(165) @Outline2@<:#269,9360>GetMergeDescFile = StrField$(MergeOpts,10,",") @Outline2@<:#269,9360>end function @Outline1@<:#284,9360>Function PrinterType() @Outline2@<:#269,9360>printer=CurPrinterName() @Outline2@<:#269,9360>DriverAndPort=GetProfileString$("devices", printer) @Outline2@<:#269,9360>driver=UCASE$(strfield$(DriverAndPort, 1, ",")) @Outline2@<:#284,9360><:f240,BArial,0,0,255>'Lasers<:f> @Outline3@<:#857,9360>if kinstr(1, "CANON10E HPDSKJET HPPCL HPPCL5A HPPLOT IBM4019 LBPII LBPIII PAINTJET PSCRIPT THINKJET TI850 LIPS3", driver) != 0 <:f240,BArial,0,0,255>'put complete driver names here<:f> @Outline3@<:#284,9360> PrinterType="Laser" @Outline3@<:#289,9360>elseif kinstr(1, driver, "PCL") != 0 <:f240,BArial,0,0,255>'detail partial names like this<:f> @Outline3@<:#284,9360> PrinterType="Laser" @Outline3@<:#284,9360>elseif kinstr(1, driver, "JET") != 0 @Outline3@<:#284,9360> PrinterType="Laser" @Outline2@<:#284,9360><:f240,BArial,0,0,255>'Dot Matrix<:f> @Outline3@<:#852,9360>elseif kinstr(1, "CIT24US CIT9US EPSON24 EPSON9 FUJI24 FUJI9 IBMGRX NEC24PIN OKI24 OKI9 OKI9IBM PANSON24 PANSON9 PROPRINT PROPRN24 QWIII TTY", driver) != 0 @Outline3@<:#284,9360> PrinterType="Dot Matrix" @Outline3@<:#284,9360>else @Outline2@<:#284,9360><:f240,BArial,0,0,255>'Other<:f> @Outline3@<:#284,9360> PrinterType=driver @Outline3@<:#284,9360>endif @Outline2@<:#269,9360>END FUNCTION @Outline1@<:#284,9360>Function GetCurrentCountry() @Outline2@<:#269,9360>GetCurrentCountry=GetProfileString$("intl", "sCountry") @Outline2@<:#269,9360>end function @Outline1@<:#284,9360>function AmiUIGray(ID, State) @Outline2@<:#269,9360>hdlg = getactivewindow() @Outline2@<:#269,9360>idnew = GetDlgItem(Hdlg, ID) @Outline2@<:#269,9360>enablewindow(idnew, state) @Outline2@<:#269,9360>end function <:#269,9360>'DIALOG labeltest -2134376448 13 86 24 210 125 "" "" "╫═▐┘" <:#269,9360>FONT 11 "System" <:#269,9360>4 12 132 78 9000 1352728579 "listbox" "" 0 <:#269,9360>4 12 132 77 9002 1352728579 "listbox" "" 0 <:#269,9360>149 4 53 14 1 1342373889 "button" "ì╖é╡ì₧é▌(&M)" 0 <:#269,9360>149 22 53 14 3 1342373888 "button" "ÄΦô«(&N)" 0 <:#269,9360>150 40 52 14 4 1342373888 "button" "╢╜└╤É▌ÆΦ(&C)" 0 <:#269,9360>150 65 52 14 2 1342373888 "button" "╖¼▌╛┘" 0 <:#269,9360>108 94 26 12 24 1342373888 "button" "cm." 0 <:#538,9360>4 108 82 9 20 1342242819 "button" "╫═▐┘└▓╠▀é┼ò└é╫æ╓éª(&S)" 0 <:#269,9360>4 96 21 8 1001 1342177280 "static" "Éíû@:" 0 <:#269,9360>31 96 74 8 1002 1342177280 "static" "heightwidth" 0 <:#269,9360>6 1 38 8 1000 1342177280 "static" "╫═▐┘(&L):" 0 <:#269,9360>108 109 48 9 1003 1342177280 "static" "═▀░╝▐└▓╠▀(&P):" 0 <:#269,9360>162 109 42 9 1004 1342177280 "static" "ÿAæ▒ùpÄå" 0 <:#269,9360>END DIALOG <:#269,9360>DIALOG labeltest -2134376448 13 87 24 255 125 "" "" "╫═▐┘" <:#269,9360>FONT 11 "System" <:#269,9360>4 11 180 78 9000 1352728579 "listbox" "" 0 <:#269,9360>4 11 180 78 9002 1352728579 "listbox" "" 0 <:#269,9360>195 10 53 14 1 1342373889 "button" "ì╖é╡ì₧é▌(&M)" 0 <:#269,9360>195 27 53 14 3 1342373888 "button" "ÄΦô«(&N)" 0 <:#269,9360>195 44 53 14 4 1342373888 "button" "╢╜└╤É▌ÆΦ(&C)" 0 <:#269,9360>195 69 52 14 2 1342373888 "button" "╖¼▌╛┘" 0 <:#269,9360>108 94 26 12 24 1342373888 "button" "cm." 0 <:#538,9360>4 108 82 8 20 1342242819 "button" "╫═▐┘└▓╠▀é┼ò└é╫æ╓éª(&S)" 0 <:#269,9360>4 96 21 8 1001 1342177280 "static" "Éíû@:" 0 <:#269,9360>31 96 74 8 1002 1342177280 "static" "heightwidth" 0 <:#269,9360>6 1 38 8 1000 1342177280 "static" "╫═▐┘(&L):" 0 <:#269,9360>108 109 48 8 1003 1342177280 "static" "═▀░╝▐└▓╠▀(&P):" 0 <:#269,9360>162 108 42 8 1004 1342177280 "static" "ÿAæ▒ùpÄå" 0 END DIALOG > [Embedded] 00049155 > [macsum] 28 label 0 0 35 34 freeglobs 6091 0 1 215 unitbutton 6183 3 4 219 helper 6915 0 4 242 prebuild 7180 3 6 248 sorttype 7991 3 2 267 heightwidthcallback 8557 3 10 281 losezeros 9357 1 1 301 roundtotwo 9824 1 1 316 converttounits 9961 1 3 319 GetNumLabelKeys 10385 1 3 334 mergem 10639 1 30 340 manualem 13449 1 28 412 B4Size 16317 2 1 484 B4SizePortrait 16712 2 1 492 A4Size 17142 2 1 500 A4SizePortrait 17541 2 1 508 LetterSize 17975 2 1 516 ManualSize 18382 4 1 524 customem 18831 0 1 533 zeromin 18893 1 1 537 twips 19014 1 1 543 getdatafile 19093 0 2 546 getmergedescfile 19221 0 2 550 PrinterType 19360 0 4 554 GetCurrentCountry 20181 0 1 573 AmiUIGray 20285 2 3 576 labeltest 20506 0 -1 598 [macse] 14 label 0 4 0 17 3 0 267 13 7 "" 18 1 0 34 0 0 13 5 0 18 1 1 2 11 00000235 17 4 0 3 "é▒é╠â}âNâìé═JLABELâXâ^âCâïâVü[âgé⌐éτî─é╬éΩé▄é╖üB╠º▓┘/ÉVïKì∞ɼé┼╧╕█Ä└ìsé≡æIé±é┼üAJLABELâXâ^âCâïâVü[âgé≡æIæ≡é╡é─é¡é╛é│éóüB" 6 0 15 9 17 7 0 296 1 17 8 0 32 2 17 10 0 271 "Setfont:hFont" 1 17 11 0 264 "Setfont:hFont" 0 17 13 29 1 rmac 0 802 13 8 1 17 14 0 271 "units" 1 17 15 0 271 "inifile" 1 17 16 29 2 inifile 7 "AMILABEL.INI" 8 2 17 17 29 3 labelheadings 0 286 "LabelTypes" "Headings" "{2}" 13 8 3 17 18 6 3 7 "" 18 0 11 00000964 17 19 29 4 inipath 0 798 13 8 4 17 20 29 5 inipathfile 0 16 "{4}" "{2}" 13 8 5 17 21 0 286 "LabelTypes" "Headings" "{5}" 13 8 3 17 22 6 3 7 "" 18 0 11 00000947 17 23 0 295 13 8 4 17 24 0 16 "{4}" "{2}" 13 8 5 17 25 0 286 "LabelTypes" "Headings" "{5}" 13 8 3 17 26 6 3 7 "" 18 0 11 00000947 17 27 0 3 "AMILABEL.INIé¬î⌐é┬é⌐éΦé▄é╣é±" 6 0 15 9 17 31 6 5 8 2 17 33 0 264 "inifile" "{2}" 17 35 29 6 unittoshow 0 286 "LabelTypes" "Units" "{2}" 13 8 6 17 36 6 6 7 "" 18 0 11 00001166 17 37 0 287 "LabelTypes" "Units" "in." "{2}" 17 38 7 "in." 8 6 17 40 0 264 "units" "{6}" 17 42 29 7 printer 0 286 "AmiProOwner" "PrefPrinter" "{2}" 13 8 7 17 43 6 7 7 "" 18 0 11 00001334 17 44 16 PrinterType 13 8 7 17 46 29 8 Country 0 286 "AmiProOwner" "PrefCountry" "{2}" 13 8 8 17 47 6 8 7 "" 18 0 11 00001480 17 48 16 GetCurrentCountry 13 8 8 17 50 29 9 a4countries 7 "United Kingdom, Austria, Belgium (Dutch), Belguim (French), Denmark, Finland, France, Germany, Iceland, Ireland, Netherlands, Norway, Portugal, Spain, Switzerland (French), Switzerland (German), Switzerland (Italian),Japan" 8 9 17 51 6 7 7 "Laser" 18 0 6 8 7 "United States" 18 0 1 1 11 00001878 17 52 29 10 labelstouse 7 "8.5"" x 11""" 8 10 10 00002296 17 53 6 7 7 "Dot Matrix" 18 0 6 8 7 "United States" 18 0 1 1 11 00002000 17 54 7 "ÿAæ▒ùpÄå" 8 10 10 00002296 17 55 6 7 7 "Laser" 18 0 0 138 1 "{9}" "{8}" 13 1 1 11 00002119 17 56 7 "A4 B4 A4ëí B4ëí" 8 10 10 00002296 17 57 6 7 7 "Dot Matrix" 18 0 0 138 1 "{9}" "{8}" 13 1 1 11 00002253 17 58 7 "UK Contin. French Contin." 8 10 10 00002296 17 61 7 "A4 B4 A4ëí B4ëí ÿAæ▒ùpÄå" 8 10 17 63 0 16 "{10}" " Custom" 13 8 10 17 64 29 11 maxlabelskey 0 286 "LabelTypes" "NextCustomLabelKey" "{2}" 13 8 11 17 65 6 11 7 "" 18 0 11 00002545 17 66 7 "Label95" 8 11 17 67 0 287 "LabelTypes" "NextCustomLabelKey" "{11}" "{2}" 17 69 0 789 "╫═▐┘└▓╠▀é≡ô╟é▌ì₧é±é┼éóé▄é╖...." 17 71 0 296 1 17 72 29 12 maxlabels 16 GetNumLabelKeys "{11}" 13 8 12 17 73 29 13 ret 0 39 13 13 8 13 17 75 6 12 29 14 labels 21 14 [X] 29 15 i 5 1 8 15 17 77 6 12 6 15 18 2 12 00002850 10 00003365 5 1 6 15 3 0 8 15 10 00002764 17 78 29 16 labelline 0 16 "Label" "{15}" 13 8 16 17 79 29 17 labellinetext 0 286 "LabelTypes" "{16}" "{2}" 13 8 17 17 80 29 18 labelpagetype 0 20 "{17}" 11 "," 13 8 18 17 81 0 134 "{17}" 13 5 10 18 5 11 00003104 17 82 10 00003365 17 84 0 138 1 "{10}" "{18}" 13 11 00003304 17 85 29 19 numlabels 6 19 5 1 3 0 8 19 17 86 6 19 0 16 "{17}" "~" "{15}" 13 23 14 17 87 0 789 "âëâxâïé≡ô╟é▌ì₧é±é┼éóé▄é╖ {19}" 10 00003352 17 89 0 789 "âëâxâïé≡â`âFâbâNé╡é─éóé▄é╖ {15}" 10 00002815 17 99 0 789 "âëâxâïé≡ò└é╫ò╧éªé─éóé▄é╖" 29 20 fieldtosorton 5 1 8 20 17 101 5 2 6 20 18 2 12 00003524 10 00004748 5 1 6 20 3 0 8 20 10 00003438 17 102 6 20 5 1 18 0 11 00003622 17 103 0 789 "ò¬ù▐ö╘ìåé┼ò└é╫ò╧éªé─éóé▄é╖..." 10 00003675 17 105 0 789 "âëâxâïé╠â^âCâvé┼ò└é╫ò╧éªé─éóé▄é╖..." 17 108 6 19 29 21 displayfield 21 21 [X] 17 109 29 22 whichfieldtouse 5 1 8 22 17 110 29 23 whichotherfieldtouse 5 2 8 23 5 1 8 15 17 111 6 19 6 15 18 2 12 00003907 10 00004600 5 1 6 15 3 0 8 15 10 00003820 17 112 29 24 field1 6 15 22 14 0 20 [X] "{22}" "," 13 8 24 17 113 29 25 field2 6 15 22 14 0 20 [X] "{23}" "," 13 8 25 17 114 29 26 recnum 6 15 22 14 0 20 [X] 2 "~" 13 8 26 17 116 29 27 spacestilde 7 " ~" 8 27 17 117 6 26 5 0 18 3 11 00004587 17 118 6 20 5 1 18 0 11 00004450 17 119 29 28 texttoinsert 0 16 "{24}" " - " "{25}" "{27}" "{26}" 13 8 28 17 120 0 789 "ò¬ù▐ö╘ìåé≡ô╟é▌ì₧é±é┼éóé▄é╖ {24}" 10 00004553 17 122 0 16 "{25}" " - " "{24}" "{27}" "{26}" 13 8 28 17 123 0 789 "Éαû╛é≡ô╟é▌ì₧é±é┼éóé▄é╖ {25}" 17 125 0 1041 &21 "{15}" "{28}" 10 00003872 17 129 6 20 5 1 18 0 11 00004674 17 130 0 31 9000 &21 10 00004735 17 131 6 20 5 2 18 0 11 00004735 17 132 0 31 9002 &21 10 00003489 17 135 0 31 20 1 17 136 0 789 "âëâxâïé≡ò\Īé╖éΘÅÇö⌡é≡é╡é─éóé▄é╖..." 17 138 0 47 112 "{1}!helper" 17 139 0 41 9000 "{1}!heightwidthcallback" 17 140 0 41 9002 "{1}!heightwidthcallback" 17 141 0 41 24 "{1}!unitbutton" 17 142 0 41 20 "{1}!sorttype" 17 143 0 41 0 "{1}!prebuild" 17 144 0 789 "" 17 145 0 296 0 17 146 29 29 box 0 26 "." "labeltest" 13 8 29 17 147 6 29 5 0 18 0 6 29 5 2 18 0 1 2 11 00005231 17 148 16 freeglobs 6 0 15 9 10 00005324 17 150 6 29 5 4 18 0 11 00005324 17 151 16 customem 17 152 16 freeglobs 6 0 15 9 17 156 0 27 20 13 5 1 18 0 11 00005430 17 157 29 30 labelchosen 0 27 9002 13 8 30 10 00005504 17 158 0 27 20 13 5 0 18 0 11 00005504 17 159 0 27 9000 13 8 30 17 161 29 31 key 0 20 "{30}" 2 "~" 13 8 31 17 162 29 32 labelnumchosen 0 1044 &14 "{31}" 2 "~" 13 8 32 17 163 29 33 labeldata 6 32 22 14 8 33 17 164 0 20 "{33}" 1 "~" 13 8 33 17 165 5 1 6 29 18 0 11 00005775 17 167 16 mergem "{33}" 10 00005833 5 3 6 29 18 0 11 00005833 17 169 16 manualem "{33}" 17 171 16 freeglobs 17 173 29 34 font 0 265 "Setfont:hFont" 13 8 34 17 174 5 0 6 34 18 1 11 00005990 17 175 0 284 "gdi,DeleteObject,HH" "{34}" 17 177 0 271 "Setfont:hFont" 1 17 178 0 266 "Setfont:hFont" 17 179 0 296 0 6 0 15 17 180 9 14 freeglobs 29 0 freeglobs 17 1 0 266 "units" 17 2 0 266 "inifile" 6 0 15 17 3 9 14 unitbutton 29 0 Hdlg 29 1 id 29 2 dummy 29 3 unitbutton 17 1 0 32 2 17 2 29 4 unittoshow 0 265 "units" 13 8 4 17 3 7 "in." 6 4 18 0 11 00000211 17 5 29 5 newunit 7 "cm." 8 5 10 00000401 7 "cm." 6 4 18 0 11 00000279 17 7 7 "picas" 8 5 10 00000401 7 "picas" 6 4 18 0 11 00000347 17 9 7 "pt." 8 5 10 00000401 7 "pt." 6 4 18 0 11 00000401 17 11 7 "in." 8 5 17 13 29 6 inifile 0 265 "inifile" 13 8 6 17 14 0 287 "LabelTypes" "Units" "{5}" "{6}" 17 15 0 264 "units" "{5}" 17 16 0 43 "{0}" "{1}" "{5}" 17 17 0 42 "{0}" 20 13 5 1 18 0 11 00000665 17 18 16 heightwidthcallback "{0}" 9002 "{2}" 10 00000713 17 20 16 heightwidthcallback "{0}" 9000 "{2}" 6 3 15 17 22 9 14 helper 29 0 helper 17 1 29 1 prohWnd 0 284 "user,FindWindow,HCC" "AmiProWndA" 0 13 8 1 17 2 29 2 helpfile 0 798 13 0 16 [X] "amipro.hlp" 13 8 2 17 3 29 3 helpnum 5 139 8 3 17 4 0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}" 6 0 15 17 5 9 14 prebuild 29 0 Hdlg 29 1 id 29 2 dummy 29 3 prebuild 17 1 5 20 8 1 17 2 16 sorttype "{0}" "{1}" "{2}" 17 3 5 9002 8 1 17 4 16 heightwidthcallback "{0}" "{1}" "{2}" 17 5 0 265 "units" 13 0 43 "{0}" 24 [X] 17 6 29 4 Font 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 128 0 0 0 0 "System" 13 8 4 17 7 6 4 11 00000792 17 8 29 5 hctl 0 44 "{0}" 9000 13 8 5 17 9 29 6 hctl2 0 44 "{0}" 9002 13 8 6 17 10 29 7 hctl3 0 44 "{0}" 1002 13 8 7 17 11 29 8 hctl4 0 44 "{0}" 1004 13 8 8 17 12 0 284 "user,SendMessage,HHHHJ" "{5}" 48 "{4}" 0 17 13 0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{4}" 0 17 14 0 284 "user,SendMessage,HHHHJ" "{7}" 48 "{4}" 0 17 15 0 284 "user,SendMessage,HHHHJ" "{8}" 48 "{4}" 0 17 16 0 264 "Setfont:hFont" "{4}" 6 3 15 17 18 9 14 sorttype 29 0 Hdlg 29 1 id 29 2 dummy 29 3 sorttype 17 1 29 4 sortbylabeltype 0 42 "{0}" "{1}" 13 8 4 17 2 6 4 5 1 18 0 11 00000354 17 3 0 44 "{0}" 9002 13 0 284 "User,ShowWindow,AHH" [X] 1 17 4 0 44 "{0}" 9000 13 0 284 "User,ShowWindow,AHH" [X] 0 17 5 5 9002 8 1 17 6 16 heightwidthcallback "{0}" "{1}" "{2}" 10 00000547 17 8 0 44 "{0}" 9000 13 0 284 "User,ShowWindow,AHH" [X] 1 17 9 0 44 "{0}" 9002 13 0 284 "User,ShowWindow,AHH" [X] 0 17 10 5 9000 8 1 17 11 16 heightwidthcallback "{0}" "{1}" "{2}" 6 3 15 17 13 9 14 heightwidthcallback 29 0 Hdlg 29 1 id 29 2 dummy 29 3 heightwidthcallback 17 1 0 32 2 17 2 29 4 inifile 7 "AMILABEL.INI" 8 4 17 3 29 5 labelchosen 0 42 "{0}" "{1}" 13 8 5 17 4 29 6 key 0 20 "{5}" 2 "~" 13 8 6 17 7 29 7 labelline 0 16 "Label" "{6}" 13 8 7 17 8 29 8 labeldata 0 286 "LabelTypes" "{7}" "{4}" 13 8 8 17 9 29 9 height 0 20 "{8}" 3 "," 13 8 9 17 10 16 converttounits "{9}" 13 8 9 17 11 16 roundtotwo "{9}" 13 8 9 17 12 29 10 width 0 20 "{8}" 4 "," 13 8 10 17 13 16 converttounits "{10}" 13 8 10 17 14 16 roundtotwo "{10}" 13 8 10 17 15 29 11 heightwidth 0 16 "{9}" " x " "{10}" 13 8 11 17 16 0 43 "{0}" 1002 "{11}" 17 17 29 12 labelpagetype 0 20 "{8}" 11 "," 13 8 12 17 18 0 43 "{0}" 1004 "{12}" 6 3 15 17 19 9 14 losezeros 29 0 num 29 1 losezeros 17 1 0 277 "{0}" 13 5 1 18 1 0 138 1 "{0}" "." 13 5 0 18 0 1 2 11 00000154 17 2 6 0 8 1 6 1 15 9 17 5 0 134 "{0}" 13 0 133 "{0}" [X] 1 13 5 0 18 0 11 00000298 17 7 0 134 "{0}" 13 5 1 3 1 0 133 "{0}" 1 [X] 13 8 0 10 00000154 17 9 0 134 "{0}" 13 0 133 "{0}" [X] 1 13 7 "" 18 0 11 00000431 17 11 0 134 "{0}" 13 5 1 3 1 0 133 "{0}" 1 [X] 13 8 0 17 13 6 0 8 1 6 1 15 17 14 9 14 roundtotwo 29 0 num 29 1 roundtotwo 17 1 6 0 5 100 4 0 0 786 [X] 13 5 100 4 1 0 19 "" "" 2 [X] 13 8 1 6 1 15 17 2 9 14 converttounits 29 0 num 29 1 converttounits 17 1 29 2 unittoshow 0 265 "units" 13 8 2 17 2 7 "in." 6 2 18 0 11 00000178 17 5 29 3 newnum 6 0 8 3 10 00000388 7 "cm." 6 2 18 0 11 00000253 17 7 5 2.54 6 0 4 0 8 3 10 00000388 7 "picas" 6 2 18 0 11 00000327 17 9 5 6 6 0 4 0 8 3 10 00000388 7 "pt." 6 2 18 0 11 00000388 17 11 5 72 6 0 4 0 8 3 17 13 6 3 8 1 6 1 15 17 14 9 14 GetNumLabelKeys 29 0 labelnumkey 29 1 GetNumLabelKeys 17 1 29 2 lenthiskeynum 0 134 "{0}" 13 5 5 3 1 8 2 17 3 29 3 thiskeynum 0 134 "{0}" 13 6 2 3 1 5 1 3 0 0 133 "{0}" [X] "{2}" 13 8 3 17 4 6 3 5 1 3 0 8 1 6 1 15 17 5 9 14 mergem 29 0 labeldata 29 1 mergem 17 2 29 2 labelheight 0 20 "{0}" 3 "," 13 8 2 17 3 29 3 labelwidth 0 20 "{0}" 4 "," 13 8 3 17 4 29 4 numacross 0 20 "{0}" 5 "," 13 8 4 17 5 29 5 numdown 0 20 "{0}" 6 "," 13 8 5 17 6 29 6 topmarg 0 20 "{0}" 7 "," 13 8 6 17 7 29 7 sidemarg 0 20 "{0}" 8 "," 13 8 7 17 8 29 8 horizpitch 0 20 "{0}" 9 "," 13 8 8 17 9 29 9 vertpitch 0 20 "{0}" 10 "," 13 8 9 17 10 29 10 labelpagetype 0 20 "{0}" 11 "," 13 8 10 17 11 6 9 7 "-" 18 0 11 00000544 17 12 6 2 8 9 17 14 6 8 7 "-" 18 0 11 00000599 17 15 6 3 8 8 17 18 29 11 inifile 0 265 "inifile" 13 8 11 17 19 29 12 fineright 0 286 "AmiProOwner" "FineRightMargin" "{11}" 13 8 12 17 20 6 12 7 "" 18 0 11 00000788 17 21 5 0.125 8 12 17 23 29 13 fineindrt 0 286 "AmiProOwner" "FineIndRight" "{11}" 13 8 13 17 24 6 13 7 "" 18 0 11 00000924 17 25 5 0.25 8 13 17 27 29 14 fineindtop 0 286 "AmiProOwner" "FineIndTop" "{11}" 13 8 14 17 28 6 13 7 "" 18 0 11 00001059 17 29 5 0.25 8 14 17 32 29 15 labelindrt 6 7 6 13 3 1 16 zeromin [X] 13 16 Twips [X] 13 8 15 17 33 29 16 labelindtop 6 6 6 14 3 1 16 zeromin [X] 13 16 Twips [X] 13 8 16 17 34 29 17 protop 16 twips 0 13 8 17 17 35 29 18 proleft 16 twips 0 13 8 18 17 36 29 19 proright 6 8 6 3 3 1 6 12 16 zeromin [X] 13 3 0 16 twips [X] 13 8 19 17 37 29 20 probottom 6 9 6 2 3 1 16 zeromin [X] 13 16 twips [X] 13 8 20 17 38 29 21 proheight 16 twips "{9}" 13 8 21 17 39 29 22 prowidth 16 twips "{8}" 13 8 22 17 40 29 23 righttab 6 3 6 12 3 1 16 twips [X] 13 8 23 17 41 29 24 centertab 6 23 5 2 4 1 8 24 17 42 29 25 firstlefttab 6 24 5 3 4 1 8 25 17 43 29 26 secondlefttab 6 25 5 2 4 0 8 26 17 45 2 210 1 17 46 2 361 1 512 17 47 2 363 1 "{18}" "{17}" "{19}" "{20}" 1 0 1 "{18}" "{23}" 4 1 "{25}" 1 "{26}" 2 "{24}" 3 "{23}" 17 48 2 364 1 "{18}" 0 "{19}" 0 1 0 1 "{18}" "{23}" 4 1 "{25}" 1 "{26}" 2 "{24}" 3 "{23}" 17 49 2 365 1 "{18}" 0 "{19}" 0 1 0 1 "{18}" "{23}" 4 1 "{25}" 1 "{26}" 2 "{24}" 3 "{23}" 17 50 6 10 7 "A4ëí" 18 0 6 10 7 "B4ëí" 18 0 1 2 11 00002257 17 51 5 256 5 7 3 0 2 362 1 "{21}" "{22}" 1 [X] 10 00002291 17 53 2 362 1 "{21}" "{22}" 1 7 17 55 2 376 1 17 56 29 27 prohwnd 0 284 "User,GetActiveWindow,H" 13 8 27 17 57 29 28 rmac 0 802 13 8 28 17 58 0 285 "{28}!AmiUIGray(3, 0)" 0.1 17 59 0 285 "{28}!AmiUIGray(4, 0)" 0.1 17 60 0 274 005 24 788 17 62 0 274 001 17 64 29 29 datafile 16 getdatafile 13 8 29 17 65 6 29 7 "" 18 1 11 00002751 17 66 29 30 descfile 16 GetMergeDescFile 13 8 30 17 67 2 110 4 24 "{29}" "{30}" "{4}" "{5}" "{15}" "{16}" 17 68 2 116 1 4 17 70 0 284 "User,SetFocus,HH" "{27}" 6 1 15 17 71 9 14 manualem 29 0 labeldata 29 1 manualem 17 2 29 2 labelheight 0 20 "{0}" 3 "," 13 5 0.03 5 2.54 4 1 3 1 8 2 17 3 29 3 labelwidth 0 20 "{0}" 4 "," 13 8 3 17 4 29 4 numacross 0 20 "{0}" 5 "," 13 8 4 17 5 29 5 numdown 0 20 "{0}" 6 "," 13 8 5 17 6 29 6 topmarg 0 20 "{0}" 7 "," 13 8 6 17 7 29 7 sidemarg 0 20 "{0}" 8 "," 13 8 7 17 8 29 8 horizpitch 0 20 "{0}" 9 "," 13 8 8 17 9 29 9 vertpitch 0 20 "{0}" 10 "," 13 8 9 17 10 29 10 labelpagetype 0 20 "{0}" 11 "," 13 8 10 17 11 6 9 7 "-" 18 0 11 00000574 17 12 6 2 8 9 17 14 6 9 5 0.03 5 2.54 4 1 3 1 8 9 17 15 6 8 7 "-" 18 0 11 00000672 17 16 6 3 8 8 17 19 29 11 fineright 5 0.125 8 11 17 20 29 12 fineindrt 5 0.125 8 12 17 21 29 13 fineindtop 5 0 8 13 17 22 29 14 finewidth 5 0.5 6 4 4 1 8 14 17 24 29 15 labelindrt 6 7 6 12 3 0 16 zeromin [X] 13 16 Twips [X] 13 8 15 17 25 29 16 labelindtop 6 6 6 13 3 1 16 zeromin [X] 13 16 Twips [X] 13 8 16 17 26 29 17 protop 16 twips 0 13 8 17 17 27 29 18 proleft 16 twips 0 13 8 18 17 28 29 19 proright 6 8 6 3 3 1 6 11 16 zeromin [X] 13 3 0 16 twips [X] 13 8 19 17 29 29 20 probottom 6 9 6 2 3 1 16 zeromin [X] 13 16 twips [X] 13 8 20 17 30 29 21 proheight 16 twips "{2}" 13 8 21 17 31 29 22 prowidth 6 3 6 14 3 1 16 zeromin [X] 13 16 twips [X] 13 8 22 17 32 29 23 righttab 6 3 6 11 3 1 16 twips [X] 13 8 23 17 33 29 24 centertab 6 23 5 2 4 1 8 24 17 34 29 25 firstlefttab 6 24 5 3 4 1 8 25 17 35 29 26 secondlefttab 6 25 5 2 4 0 8 26 17 36 29 27 manualpageheight 16 Twips "{9}" 13 8 27 17 37 29 28 carrierwidth 5 2 6 7 4 0 6 8 6 4 4 0 3 0 16 Twips [X] 13 8 28 17 38 6 10 7 "A4" 18 0 11 00001928 17 39 16 A4Size "{15}" "{16}" 17 40 2 457 1 1 0 "{4}" "{5}" 17 41 2 626 1 2 0 "{22}" "{19}" "{21}" "{20}" 0 0 0 0 0 1 10 00002849 17 43 6 10 7 "A4ëí" 18 0 11 00002115 17 44 16 A4SizePortrait "{15}" "{16}" 17 45 2 457 1 1 0 "{4}" "{5}" 17 46 2 626 1 2 0 "{22}" "{19}" "{21}" "{20}" 0 0 0 0 0 1 10 00002849 17 48 6 10 7 "B4" 18 0 11 00002292 17 51 16 B4Size "{15}" "{16}" 17 52 2 457 1 1 0 "{4}" "{5}" 17 53 2 626 1 2 0 "{22}" "{19}" "{21}" "{20}" 0 0 0 0 0 1 10 00002849 17 54 6 10 7 "B4ëí" 18 0 11 00002479 17 55 16 B4SizePortrait "{15}" "{16}" 17 56 2 457 1 1 0 "{4}" "{5}" 17 57 2 626 1 2 0 "{22}" "{19}" "{21}" "{20}" 0 0 0 0 0 1 10 00002849 17 59 6 10 7 "ÿAæ▒ùpÄå" 18 0 11 00002721 17 60 6 27 6 16 3 0 16 ManualSize "{15}" "{16}" [X] "{28}" 17 61 6 4 5 1 18 3 11 00002708 17 62 2 457 1 1 0 "{4}" 1 17 63 2 626 1 2 0 "{22}" "{19}" "{21}" 0 0 0 0 0 0 1 10 00002849 17 66 16 LetterSize "{15}" "{16}" 17 67 2 457 1 1 0 "{4}" "{5}" 17 68 2 626 1 2 0 "{22}" "{19}" "{21}" "{20}" 0 0 0 0 0 1 6 1 15 17 71 9 14 B4Size 29 0 labelindrt 29 1 labelindtop 29 2 B4Size 17 1 2 361 1 512 17 2 2 363 1 "{0}" "{1}" 0 0 2 0 1 0 14570 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 17 3 2 362 1 20636 14570 2 2 17 4 2 364 1 "{0}" 0 0 0 2 0 1 "{0}" 11908 2 2 4680 3 9360 17 5 2 365 1 "{0}" 0 0 0 2 0 1 "{0}" 11908 2 2 4680 3 9360 17 6 2 376 1 6 2 15 17 7 9 14 B4SizePortrait 29 0 labelindrt 29 1 labelindtop 29 2 B4SizePortrait 17 1 2 361 1 512 17 2 2 363 1 "{0}" "{1}" 0 0 2 0 1 0 14570 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 17 3 5 2 5 256 3 0 2 362 1 14570 20636 2 [X] 17 4 2 364 1 "{0}" 0 0 0 2 0 1 "{0}" 11908 2 2 4680 3 9360 17 5 2 365 1 "{0}" 0 0 0 2 0 1 "{0}" 11908 2 2 4680 3 9360 17 6 2 376 1 6 2 15 17 7 9 14 A4Size 29 0 labelindrt 29 1 labelindtop 29 2 A4Size 17 1 2 361 1 512 17 2 2 363 1 "{0}" "{1}" 0 0 2 0 1 "{0}" 11908 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 17 3 2 362 1 16833 11908 2 4 17 4 2 364 1 "{0}" 0 0 0 2 0 1 "{0}" 11908 2 2 4680 3 9360 17 5 2 365 1 "{0}" 0 0 0 2 0 1 "{0}" 11908 2 2 4680 3 9360 17 6 2 376 1 6 2 15 17 7 9 14 A4SizePortrait 29 0 labelindrt 29 1 labelindtop 29 2 A4SizePortrait 17 1 2 361 1 512 17 2 2 363 1 "{0}" "{1}" 0 0 2 0 1 "{0}" 16833 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 17 3 5 4 5 256 3 0 2 362 1 11908 16833 2 [X] 17 4 2 364 1 "{0}" 0 0 0 2 0 1 "{0}" 16833 2 2 4680 3 9360 17 5 2 365 1 "{0}" 0 0 0 2 0 1 "{0}" 16833 2 2 4680 3 9360 17 6 2 376 1 6 2 15 17 7 9 14 LetterSize 29 0 labelindrt 29 1 labelindtop 29 2 LetterSize 17 1 2 361 1 512 17 2 2 363 1 "{0}" "{1}" 0 0 2 0 1 "{0}" 12240 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 17 3 2 362 1 15840 12240 2 1 17 4 2 364 1 "{0}" 0 0 0 2 0 1 "{0}" 12240 2 2 4680 3 9360 17 5 2 365 1 "{0}" 0 0 0 2 0 1 "{0}" 12240 2 2 4680 3 9360 17 6 2 376 1 6 2 15 17 7 9 14 ManualSize 29 0 labelindrt 29 1 labelindtop 29 2 manualpageheight 29 3 carrierwidth 29 4 ManualSize 17 2 2 361 1 512 17 3 2 363 1 "{0}" "{1}" 0 0 2 0 1 "{0}" "{3}" 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 17 4 2 362 1 "{2}" "{3}" 2 1 17 5 2 364 1 "{0}" 0 0 0 2 0 1 "{0}" "{3}" 2 2 4680 3 9360 17 6 2 365 1 "{0}" 0 0 0 2 0 1 "{0}" "{3}" 2 2 4680 3 9360 17 7 2 376 1 6 4 15 17 8 9 14 customem 29 0 customem 24 352 24 788 6 0 15 17 3 9 14 zeromin 29 0 num 29 1 zeromin 17 1 6 0 5 0 18 5 11 00000087 17 2 5 0 8 0 17 4 6 0 8 1 6 1 15 17 5 9 14 twips 29 0 num 29 1 twips 17 1 6 0 5 1440 4 0 8 1 6 1 15 17 2 9 14 getdatafile 29 0 getdatafile 17 1 29 1 MergeOpts 0 1313 165 13 8 1 17 2 0 20 "{1}" 8 "," 13 8 0 6 0 15 17 3 9 14 getmergedescfile 29 0 getmergedescfile 17 1 29 1 MergeOpts 0 1313 165 13 8 1 17 2 0 20 "{1}" 10 "," 13 8 0 6 0 15 17 3 9 14 PrinterType 29 0 PrinterType 17 1 29 1 printer 0 1313 62 13 8 1 17 2 29 2 DriverAndPort 0 286 "devices" "{1}" 13 8 2 17 3 29 3 driver 0 20 "{2}" 1 "," 13 0 18 [X] 13 8 3 17 5 0 138 1 "CANON10E HPDSKJET HPPCL HPPCL5A HPPLOT IBM4019 LBPII LBPIII PAINTJET PSCRIPT THINKJET TI850 LIPS3" "{3}" 13 5 0 18 1 11 00000388 17 6 7 "Laser" 8 0 10 00000802 17 7 0 138 1 "{3}" "PCL" 13 5 0 18 1 11 00000478 17 8 7 "Laser" 8 0 10 00000802 17 9 0 138 1 "{3}" "JET" 13 5 0 18 1 11 00000569 17 10 7 "Laser" 8 0 10 00000802 17 12 0 138 1 "CIT24US CIT9US EPSON24 EPSON9 FUJI24 FUJI9 IBMGRX NEC24PIN OKI24 OKI9 OKI9IBM PANSON24 PANSON9 PROPRINT PROPRN24 QWIII TTY" "{3}" 13 5 0 18 1 11 00000785 17 13 7 "Dot Matrix" 8 0 10 00000802 17 16 6 3 8 0 6 0 15 17 18 9 14 GetCurrentCountry 29 0 GetCurrentCountry 17 1 0 286 "intl" "sCountry" 13 8 0 6 0 15 17 2 9 14 AmiUIGray 29 0 ID 29 1 State 29 2 AmiUIGray 17 1 29 3 hdlg 0 284 "User,GetActiveWindow,H" 13 8 3 17 2 29 4 idnew 0 44 "{3}" "{0}" 13 8 4 17 3 0 284 "user,EnableWindow,HHH" "{4}" "{1}" 6 2 15 17 4 9 DIALOG labeltest -2134376448 13 87 24 255 125 "" "" "╫═▐┘" FONT 11 "System" 4 11 180 78 9000 1352728579 "listbox" "" 0 4 11 180 78 9002 1352728579 "listbox" "" 0 195 10 53 14 1 1342373889 "button" "ì╖é╡ì₧é▌(&M)" 0 195 27 53 14 3 1342373888 "button" "ÄΦô«(&N)" 0 195 44 53 14 4 1342373888 "button" "╢╜└╤É▌ÆΦ(&C)" 0 195 69 52 14 2 1342373888 "button" "╖¼▌╛┘" 0 108 94 26 12 24 1342373888 "button" "cm." 0 4 108 82 8 20 1342242819 "button" "╫═▐┘└▓╠▀é┼ò└é╫æ╓éª(&S)" 0 4 96 21 8 1001 1342177280 "static" "Éíû@:" 0 31 96 74 8 1002 1342177280 "static" "heightwidth" 0 6 1 38 8 1000 1342177280 "static" "╫═▐┘(&L):" 0 108 109 48 8 1003 1342177280 "static" "═▀░╝▐└▓╠▀(&P):" 0 162 108 42 8 1004 1342177280 "static" "ÿAæ▒ùpÄå" 0 00049180 
